Score de completude = somme des complétudes de chaque item.
Ce chapitre utilise le fichier source(“../../RESURAL/Trame_commune/rapport_2014.R”) qui possède deux fonctions pour calculer la complétude et dessiner le diagramme en radar correspondant.
Les motifs de passage ou de recours doivent être codés en CIM10. Certains établissements ne le font pas (Colmar), ce qui entraîne une fausse complétude car le champ n’est pas vide mais inexploitable. La fonction détecte les codes non CIM10 sur la base suivante: a minima un code CIM10 commence par une lettre majuscule suivie de deux chiffres (“1[0-9][0-9]”).
## Hop Motifs CIM10 Completude
## 1 Sav 2529 1216 48.08
## 2 Sel 2608 2558 98.08
## 3 Mul 5195 4180 80.46
## 4 Dts 936 915 97.76
## 5 Dia 2401 2361 98.33
## 6 Hag 3828 774 20.22
## 7 3Fr 1346 25 1.86
## 8 Alk 1321 273 20.67
## 9 Hus 9190 5058 55.04
## 10 Wis 1029 1019 99.03
## 11 Ros 581 529 91.05
## 12 Geb 1233 1226 99.43
## 13 Col 5657 0 0
## 14 Odi 1857 1614 86.91
## 15 Ane 798 0 0
C’est la complétude calculée pour tous les RPU quelque soit l’établissement producteur.
completude_region <- completude(dx)
radar.completude(completude_region)
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
n.items <- length(completude_region) # nb d'items pris en compte N = 19
score.region <- sum(completude_region) / n.items
Score de complétude régional: 85.67 sur 100.
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 73.01 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 99.3 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 89.37 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 92.36 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 96 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 84.24 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 72.19 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 71.59 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 74.82 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 98.41 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 90.39 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 91.58 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 93.53 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 82.88 sur 100
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(point.symbols, length.out = nsets): 'x' is NULL so the
## result will be NULL
## Warning in rep(point.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Warning in rep(poly.col, length.out = nsets): 'x' is NULL so the result
## will be NULL
## Score local: 64 sur 100
A-Z↩